APPENDIX A 

VERSION 5.00 

Object = {EAB22AC0-30C1-1 1CF-A7EB-0000C05BAE0B}#1 .1#0"; "SHDOCVW.DLL" 
Begin VB.Form Fornil 
BackColor = &H0080FF80& 
BorderStyle = 0 "None 
ClientHeight = 14130 
ClientLeft = 4905 
ClientTop = 555 
CjclientWidth = 9405 
J;;ControlBox = 0 'False 
SLinkTopic = "Forml" 
ilMaxButton = 0 'False 
CIMinButton = 0 'False 
WScaleHeight = 14130 
pScaleWidth = 9405 
ShowInTaskbar = 0 'False 
Begin VB.Timer Timer2 
Enabled = 0 'False 
Interval = 60000 
Left = 4440 
Top = 360 

End 

Begin VB.CommandButton cmdBack 
Caption = "Previous Page" 



BeginProperty Font 

Name = "Arial" 

Size = 12 

Charset = 0 

Weight = 700 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 
EndProperty 
Height = 375 
Left = 5520 

Style = 1 'Graphical 
Tablndex = 14 
Top = 13320 

Width = 2055 
End 

Begin VB.CommandButton Conmiandl 



Caption 


= "Commandl 


Height 


= 1575 


Left 


= 1560 


Tabhidex 


= 13 


Top 


= 720 


Visible 


- 0 'False 


Width 


= 2295 



End 



Begin VB.CommandButton scroUdn 
Caption = "DOWN" 
BeginProperty Font 
Name = "Anal" 
Size - 12 
Charset = 0 
Weight = 700 
Underline = 0 'False 
Italic = 0 'False 
Strikethrough = 0 'False 
[ EndProperty 
j Height = 1215 
] Left - 8400 
Tablndex = 12 
Top = 4080 

Width = 375 
End 

Begin VB.CommandButton scroUup 
Caption = "UP" 
BeginProperty Font 
Name = "Arial" 
Size = 12 
Charset = 0 
Weight = 700 
Underline = 0 'False 



Italic = 0 'False 
Strikethrough = 0 'False 

EndProperty 

Height = 1215 

Left = 8520 

Tablndex = 11 

Top = 2640 

Width = 375 
End 

,Begin VB.CommandButton scroUlt 
Caption = "LEFT" 
BeginProperty Font 
Name = "Arial" 
Size = 12 

Charset = 0 
Weight = 700 
Underline = 0 'False 
Italic = 0 'False 
Strikethrough = 0 'False 
EndProperty 
Height = 375 
Left = 5880 
Tabhidex = 10 
Top = 7800 

Width = 1095 



End 

Begin VB.CommandButton scroUrt 
Caption = "RIGHT" 
BeginProperty Font 

Name = "Arial" 

Size = 12 

Charset = 0 

Weight = 700 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 
EndProperty 
Height = 375 
Left = 7320 

Tablndex = 9 
Top = 7800 

Width - 1095 
End 

Begin VB.CommandButton cmdexit 
Caption = "Exit" 
BeginProperty Font 

Name = "Arial" 

Size = 12 

Charset = 0 

Weight = 700 



Underline = 0 'False 
Italic = 0 'False 
Strikethrough = 0 'False 
EndProperty 
Height = 375 
Left = 3240 
Style = 1 'Graphical 
Tablndex = 1 
Top = 13320 

^ Width = 2055 
J End 

I Begin VB.Timer Timer3 
I Enabled = 0 'False 
. Interval = 500 
j Left = 4920 
j Top = 3120 

End 

Begin VB .Frame Frame5 
BorderStyle = 0 "None 
Caption = "Frame5" 
Height = 1000 
Left = 1080 
Tablndex = 6 
Top = 4560 

Width = 6200 



Begin VB.Label Labell 
Alignment = 2 'Center 
BackStyle = 0 Transparent 
Caption = "Processing request . . .please wait," 
BeginProperty Font 

Name = "MS Sans Serif 

Size = 18 

Charset = 0 

Weight = 400 

Underline = 0 Talse 

Italic =^ 0 Talse 

Strikethrough = 0 'False 
EndProperty 

ForeColor = &H0000FFFF& 
Height - 615 
Left = 240 
Tablndex = 7 
Top - 240 

Width = 5775 
End 

Begin VB.Label Label2 
Alignment = 2 'Center 
BackStyle = 0 'Transparent 

Caption = "Processing request , . .please wait." 

BeginProperty Font 7 



Name = "MS Sans Serif 

Size = 18 

Charset = 0 

Weight = 400 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 
EndProperty 
Height - 615 
Left = 290 
Tabhidex = 8 
Top = 290 

Width = 5775 
End 

Begin VB.Shape Shapel 

BackColor = &HOOFFOOOO& 

BackStyle = 1 'Opaque 

BorderWidth - 3 

Height = 1000 

Left = 0 

Top = 0 

Width = 6200 
End 
End 

Begin VB.Frame Frame4 



BackColor = &H00404040& 
BorderStyle = 0 'None 
Caption = "Frame2" 
Height = 2775 
Left = 6840 
Tablndex = 5 
Top = 10200 

Width = 615 
End 

Begin VB.Frame Frame3 

BackColor = &H00404040& 

BorderStyle = 0 'None 

Caption = "Frame2" 

Height = 2775 

Left = 6120 

Tablndex = 4 

Top = 10200 

Width = 615 
End 

Begin VB.Frame Frame2 
BackColor = &H00404040& 
BorderStyle = 0 'None 
Caption = "Frame2" 
Height = 2775 
Left = 5400 



Tablndex = 3 
Top = 10200 

Width = 615 
End 

Begin VB.Frame Framel 

BackColor = &H00404040& 

BorderStyle = 0 'None 

Height = 3255 

Left = 5040 
I Tablndex = 2 
i Top = 9960 

] Width = 200 
{End 

I Begin VB.TextBox txtAddress 

■n 

j Height = 495 

3 Left = 600 

Tablndex = 0 

Text = "Textl" 

Top = 13920 

Visible = 0 'False 

Width = 2535 
End 

Begin VB.Timer Timerl 

Enabled - 0 'False 

Interval = 1000 



Left = 6480 
Top = 2040 

End 

Begin SHDocVwCtl.WebBrowser WebBrowserl 
Height = 975 
Left = 480 
Tablndex = 15 
Top = 3000 

Width = 2895 
ExtentX = 5106 
ExtentY = 1720 
ViewMode = 0 
Offline = 0 
Silent = 0 
RegisterAsBrowser= 0 
-I RegisterAsDropTarget= 1 
AutoArrange = 0 'False 
NoClientEdge = 0 'False 
AUgnLeft - 0 'False 

ViewID = "{0057DOEO-3573-11CF-AE69-08002B2E1262}" 
Location - "" 
End 
End 

Attribute VBName = "Forml" 

Attribute VB_GlobalNameSpace = False 1 1 



Attribute VBCreatable = False 
Attribute VBPredeclaredld = Trae 
Attribute VB_Exposed = False 

Dim WithEvents Web_Vl As SHDocVwCtl.WebBrowser_Vl 

Attribute Web_Vl.VB_VarHelpID = -1 

Dim iminutes As Integer 

Private Sub cmdexit_Click() 

McHide 

End Sub 



ff rivate Sub Form_Load() 

Ciet Web VI = WebBrowserl .Object 



Me.Top = 300 

Me.Height = Screen.Height - 600 
Me. Width = Screen. Width * 0.7 
Me.Left = (Screen. Width - Me. Width) / 2 

Command 1. Height = Me.Height 
Commandl .Width = Me. Width 



Commandl .Left = Me.Left 
Commandl.Top = Me.Top 



Framel.Top = 0 
Framel.Left = 0 

Framel. Width = 50 + scrollup.Width 
Framel. Height = Commandl .Height 

Sframe2.Top = 0 

f|rame2.Width= (Framel. Width) 

Srame2.Left = Commandl. Width - Frame2.Width 

-3 Frame2 .Height = Commandl. Height 

"Frames .Height = Framel. Width 
Frames, Width = Commandl .Width 
Frame3Xeft = 0 
FrameS.Top = 0 

Frame4.Left = 0 

Frame4.Height = FrameS .Height 
Frame4. Width = Commandl. Width 

Frame4.Top - Commandl .Height - 1 3Frame4.Height 



Frames. Top = (Commandl. Height - FrameS. Height) / 2 
FrameS.Left = (Commandl. Width - FrameS.Width) / 2 
Frames. Visible = False 

cmdexit.Left = Commandl. Width * 1 / 3 - (cmdexit. Width / 2) 
cmdexit.Top Frame4.Top + (Frame4.Height - cmdexit.Height) / 2 

= Commandl, Width * 2 / 3 - (cmdBack. Width / 2) 
= Frame4.Top + (Frame4.Height - cmdBack.Height) / 2 

Frame2.Left + (Frame2.Width - scrollup.Width) / 2 
Frame 1. Width 

scroUup.Left 

Commandl. Height - (scroUdn.Height + Framel. Width) 

scrolUt.Top = Frame4.Top + (Frame4.Height - scrolUt.Height) / 2 
scrolllt.Left = Framel. Width 

scroUrt.Top = scrolUt.Top 

scrolht.Left = Frame2.Left - scroUrt. Width 



cmdBack.Left = 
gijndBack.Top ^ 

^rollup.Left = 
'^^broUup.Top = 

U1 

flScroUdnXeft = 
QcroUdn.Top = 



WebBrowserl .Height = Frame4.Top - 
WebBrowser 1 .Top = Frame3 .Height 



(Frames .Height - 50) 

14 



WebBrowserl Xeft = Framel .Width 

WebBrowserl .Width = Commandl. Width - (Framel. Width + Frame2. Width - 50) 

TimerLEnabled ^ Trae 
Timer2.Enabled = Trae 
iminutes = 0 
End Sub 

private Sub scrolldn_Chck() 
frames .Visible = False 

J^ebBrowserLDocument.parentWindow.scrollBy 0, WebBrowserl .Height * 0.6 
#ndSvib 

ill 

^¥rivate Sub scrolllt_CUck() 
H^rameS .Visible = False 
WebBrowserl. Document.parentWindow.scroUBy WebBrowserl. Height * -0.6, 0 

End Sub 

Private Sub scrollrt_Click() 
Frames .Visible = False 

WebBrowserl. Document.parentWindow.scroUBy WebBrowserl .Height * 0.6, 0 
End Sub 



Private Sub scrollup_CUck() 
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Frames .Visible = False 

WebBrowserl.Document.parentWindow.scrollBy 0, WebBrowserl .Height 
End Sub 

Private Sub Timerl_Timer() 
Timerl .Enabled = False 
WebBrowserl. Navigate txtAddress.Text 
End Sub 

iirivate Sub cmdBadkMIIlickO 
^j; Frames. Visible = False 
I.. . On Error Resume Next 
WebBrowserl. GoBack 
CEnd Sub 

Private Sub Timer2_Timer() 
iminutes iminutes + 1 
If iminutes > 2 Then 

Timer2.Enabled = False 

Me.Hide 
End If 



16 



End Sub 



Private Sub Timer3_Timer() 
Timers. Enabled = False 
Frames .Visible = False 

End Sub 



Private Sub WebBrowserl_DownloadBegin() 
Frames, Visible = True 

Oind Sub 

private Sub WebBrowserl JDocumentComplete(ByVal pDisp As Object, URL As Variant) 

m Timer3.Enabled = True 
p 'On Error Resume Next 

If (pDisp Is WebBrowserl .Object) Then 

'DocumentComplete event is fired for each frame on a page 

'this condition means that the main document is fully loaded 

'and you can use brwWebBrowser.Document property 



RecurseFrames WebBrowserl .Document, Nothing 
End If 

End Sub 17 



Private Sub WebBrowserl_DownloadComplete() 

Timers .Enabled = False 

iminutes ^ 0 

Timers. Enabled = True 
End Sub 



Uirivate Sub Web_Vl_NewWindow(ByVal URL As String, „ 

ByVal Flags As Long, 
% ByVal TargetFrameName As String, _ 

m PostData As Variant, _ 

Q ByVal Headers As String, _ 

Processed As Boolean) 

Processed = True 
WebBrowser LNavigate URL 

End Sub 



Private Sub WebBrowserl_StatusTextChange(ByVal Text As String) 
Timer2.Enabled = False 

iminutes = 0 1^ 



Tiiner2.Enabled = True 
End Sub 
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